home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-2.iso / extra_2 / pre_view.zip / DLMAIN.PAS < prev    next >
Pascal/Delphi Source File  |  1995-10-29  |  5KB  |  187 lines
  1. unit Dlmain;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Menus, wPreview, wSelPrn, Misc;
  8.  
  9. type
  10.   Tmainwin = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     File1: TMenuItem;
  13.     Exit1: TMenuItem;
  14.     ActiveWindows1: TMenuItem;
  15.     Normal1: TMenuItem;
  16.     Cascade1: TMenuItem;
  17.     Tile1: TMenuItem;
  18.     Samples1: TMenuItem;
  19.     PlainText1: TMenuItem;
  20.     N2: TMenuItem;
  21.     SelectPrinter1: TMenuItem;
  22.     PreviewJobCost1: TMenuItem;
  23.     ViewBluePrint1: TMenuItem;
  24.     PrintBluePrint1: TMenuItem;
  25.     PreviewJobDueShip1: TMenuItem;
  26.     N4: TMenuItem;
  27.     ViewPictureofPart1: TMenuItem;
  28.     N5: TMenuItem;
  29.     CodePrintSample1: TMenuItem;
  30.     procedure Exit1Click(Sender: TObject);
  31.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  32.     procedure FormCreate(Sender: TObject);
  33.     procedure Cascade1Click(Sender: TObject);
  34.     procedure Tile1Click(Sender: TObject);
  35.     procedure Normal1Click(Sender: TObject);
  36.     procedure SelectPrinter1Click(Sender: TObject);
  37.     procedure PlainText1Click(Sender: TObject);
  38.     procedure PreviewJobCost1Click(Sender: TObject);
  39.     procedure PreviewJobDueShip1Click(Sender: TObject);
  40.     procedure ViewBluePrint1Click(Sender: TObject);
  41.     procedure PrintBluePrint1Click(Sender: TObject);
  42.     procedure ViewPictureofPart1Click(Sender: TObject);
  43.     procedure CodePrintSample1Click(Sender: TObject);
  44.   private
  45.     { Private declarations }
  46.   public
  47.     { Public declarations }
  48.   end;
  49.  
  50. var
  51.   mainwin: Tmainwin;
  52.  
  53. implementation
  54.  
  55. {$R *.DFM}
  56.  
  57. procedure Tmainwin.Exit1Click(Sender: TObject);
  58. begin
  59.   close;
  60. end;
  61.  
  62. procedure Tmainwin.FormClose(Sender: TObject; var Action: TCloseAction);
  63. begin
  64.   StopLinePrinter;
  65.   StopMisc;
  66. end;
  67.  
  68. procedure Tmainwin.FormCreate(Sender: TObject);
  69. begin
  70.   WindowState:=wsNormal;
  71.   top:=0;
  72.   width:=640;
  73.   height:=480;
  74.   left:=(screen.width-width) div 2;
  75.   StartMisc;
  76.   StartLinePrinter;
  77. end;
  78.  
  79. procedure Tmainwin.Cascade1Click(Sender: TObject);
  80. begin
  81.   self.cascade;
  82. end;
  83.  
  84. procedure Tmainwin.Tile1Click(Sender: TObject);
  85. begin
  86.   self.tile;
  87. end;
  88.  
  89. procedure Tmainwin.Normal1Click(Sender: TObject);
  90. var ii:integer;
  91. begin
  92.   WindowState:=wsNormal;
  93.   top:=0;
  94.   left:=0;
  95.   width:=640;
  96.   height:=480;
  97. end;
  98.  
  99. procedure Tmainwin.SelectPrinter1Click(Sender: TObject);
  100. begin
  101.   newprinter:=tnewprinter.create(self);
  102.   newprinter.show;
  103. end;
  104.  
  105. procedure Tmainwin.PlainText1Click(Sender: TObject);
  106. var tpr:TPreview;
  107. begin
  108.   tpr:=TPreview.create(self);
  109.     tpr.PrintCommandFile('load::demorout.txt');
  110. end;
  111.  
  112. procedure Tmainwin.PreviewJobCost1Click(Sender: TObject);
  113. var tpr:TPreview;
  114. begin
  115.   tpr:=TPreview.create(self);
  116.     tpr.PrintCommandFile('load::demojob.txt');
  117. end;
  118.  
  119. procedure Tmainwin.PreviewJobDueShip1Click(Sender: TObject);
  120. var tpr:TPreview;
  121. begin
  122.   tpr:=TPreview.create(self);
  123.     tpr.PrintCommandFile('load::demoinfo.txt');
  124. end;
  125.  
  126. procedure Tmainwin.ViewBluePrint1Click(Sender: TObject);
  127. var tpr:tpreview;
  128. begin
  129.   tpr:=tpreview.create(self);
  130.   tpr.windowstate:=wsNormal;
  131.   tpr.ShowBluePrint('P/N 12345-67 ','demobps.bmp','demobp.bmp');
  132. end;
  133.  
  134. procedure Tmainwin.PrintBluePrint1Click(Sender: TObject);
  135. var tpr:tpreview;
  136. begin
  137.   tpr:=tpreview.create(self);
  138.   tpr.caption:='Print B/P 12345-67';
  139.   tpr.windowstate:=wsMinimized;
  140.   tpr.PrintBluePrint('demobp.bmp');
  141. end;
  142.  
  143. procedure Tmainwin.ViewPictureofPart1Click(Sender: TObject);
  144. var lpp:lpr;
  145. begin
  146.   lpp:=lpr.create;
  147.   with lpp do begin
  148.        SetDestination;
  149.       ForceToScreen;
  150.       StartDoc(for8x11,'TEST PHOTO');
  151.       cmImage(true,2,2,'demopic.bmp');
  152.       cmText(5,5.5,'12b','Photo Of P/N 12345-67');
  153.       StopDoc;
  154.   end;
  155.   lpp.free;
  156. end;
  157.  
  158. procedure Tmainwin.CodePrintSample1Click(Sender: TObject);
  159. var lpp:lpr;
  160.     ii:integer;
  161. begin
  162.   lpp:=lpr.create;
  163.   with Lpp do begin
  164.       SetDestination;
  165.       StartDoc(for8x11,'Test Routines');
  166.     cmText(3,1,'6:24','Text Sample Arial 24 pt');
  167.     cmText(1,2.3,'30','Text Sample Arial Bold 30 pt');
  168.     cmBox(0,4,10,1,0);
  169.     cmBox(1,5.2,0.2,12,0);
  170.     { must force font change when changing style from Raster to Text }
  171.     TextFont('12');
  172.     cmText(2,6,'b','Text Sample Bold');
  173.     cmText(2,7,'bi','Text Sample Bold Italic');
  174.     cmText(3,8,'biu','Text Sample Bold Italic Underline');
  175.     Eject;
  176.       for ii:=1 to 10 do writeln(inttostr(ii));
  177.     write('one ');
  178.     write('two ');
  179.     write('three');
  180.     writeln('');
  181.          StopDoc;
  182.   end;
  183.   lpp.free;
  184. end;
  185.  
  186. end.
  187.